home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / town1.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  186 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieName,movieNo
  2.  
  3. on moveMan direction
  4.   put stepNo + 1 into stepNo
  5.   if direction = 8 then
  6.     put 0 into moveH
  7.     put -9 into moveV
  8.     put 0 into RmoveH
  9.     put -72 into RmoveV
  10.     put 19 into startCast
  11.     put 22 into endCast
  12.   else if direction = 2 then
  13.     put 0 into moveH
  14.     put 9 into moveV
  15.     put 0 into RmoveH
  16.     put 72 into RmoveV
  17.     put 15 into startCast
  18.     put 18 into endCast
  19.   else if direction = 4 then
  20.     put -12 into moveH
  21.     put 0 into moveV
  22.     put -48 into RmoveH
  23.     put 0 into RmoveV
  24.     put 23 into startCast
  25.     put 26 into endCast
  26.   else if direction = 6 then
  27.     put 12 into moveH
  28.     put 0 into moveV
  29.     put 48 into RmoveH
  30.     put 0 into RmoveV
  31.     put 27 into startCast
  32.     put 30 into endCast
  33.   end if
  34.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  35.     SET THE CASTNUM OF SPRITE 13 TO startCast
  36.     UPDATESTAGE
  37.     mMove girl1
  38.     mMove girl2
  39.     EXIT
  40.   END IF
  41.   if direction = 8 then
  42.     repeat with spno in gEntranceList
  43.       if sprite 14 intersects spno then
  44.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U2"
  45.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  46.         UPDATESTAGE
  47.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U3"
  48.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  49.         UPDATESTAGE
  50.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U4"
  51.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  52.         UPDATESTAGE
  53.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U1"
  54.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  55.         UPDATESTAGE
  56.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U2"
  57.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  58.         UPDATESTAGE
  59.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U3"
  60.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  61.         UPDATESTAGE
  62.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U4"
  63.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  64.         UPDATESTAGE
  65.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U1"
  66.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 12
  67.         UPDATESTAGE
  68.         if spno = 34 then
  69.           play movie "SUPR"&string(random(4))&".DIR"
  70.           exit
  71.         else if spno = 35 then
  72.           play movie "BOOK"&string(random(5))&".DIR"
  73.           exit
  74.         else if spno = 36 then
  75.           go movie "TRAN1.DIR"
  76.           exit
  77.         end if
  78.       end if
  79.     end repeat
  80.   end if
  81.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  82.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  83.   updateStage
  84.   if stepNo >= 5 then
  85.     repeat with spno in gGirlList
  86.       if sprite 14 intersects spno then
  87.         if random(7) = 2 then
  88.           go to marker(1)
  89.           
  90.           nanpa
  91.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  92.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  93.           exit
  94.         end if
  95.         put getaProp(gMovieList,spno) into movieNo
  96.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  97.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  98.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  99.         puppetSprite 48, False
  100.         updateStage
  101.         sound stop 1
  102.         put "W" into movieName
  103.         playQTMovie
  104.         --play frame "W"&movieNo
  105.         put value(Hpoint) into thisHpoint
  106.         if thisHpoint > 0 then
  107.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  108.         else
  109.           put abs(thisHpoint) into Hpoint
  110.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  111.         end if
  112.         put totalHpoint + thisHpoint into totalHpoint
  113.         put totalHpoint into field "Hpoint"
  114.         put 0 into stepNo
  115.         EXIT
  116.       END IF
  117.     END REPEAT
  118.   end if
  119.   repeat with spno in gBlockList
  120.     if sprite 14 intersects spno then
  121.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  122.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  123.       UPDATESTAGE
  124.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  125.       UPDATESTAGE
  126.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  127.       UPDATESTAGE
  128.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  129.       UPDATESTAGE
  130.       SET THE CASTNUM OF SPRITE 13 TO startCast
  131.       UPDATESTAGE
  132.       mMove girl1
  133.       mMove girl2
  134.       EXIT
  135.     end if
  136.   end repeat
  137.   IF NOT(SPRITE 14 WITHIN 3) THEN
  138.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  139.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  140.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  141.     UPDATESTAGE
  142.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  143.     UPDATESTAGE
  144.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  145.     UPDATESTAGE
  146.     SET THE CASTNUM OF SPRITE 13 TO startCast
  147.     UPDATESTAGE
  148.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  149.     UPDATESTAGE
  150.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  151.     UPDATESTAGE
  152.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  153.     UPDATESTAGE
  154.     SET THE CASTNUM OF SPRITE 13 TO startCast
  155.     UPDATESTAGE
  156.     mMove girl1
  157.     mMove girl2
  158.   ELSE
  159.     if direction = 8 or direction = 2 then
  160.       put 2 into step
  161.     else
  162.       put 1 into step
  163.     end if
  164.     repeat with i = 1 to step
  165.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  166.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  167.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  168.       UPDATESTAGE
  169.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  170.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  171.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  172.       UPDATESTAGE
  173.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  174.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  175.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  176.       UPDATESTAGE
  177.       SET THE CASTNUM OF SPRITE 13 TO startCast
  178.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  179.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  180.       UPDATESTAGE
  181.     end repeat
  182.     mMove girl1
  183.     mMove girl2
  184.   END IF
  185. end
  186.